home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
acadaskt.zip
/
STARTCPY.BAT
< prev
next >
Wrap
DOS Batch File
|
1991-06-08
|
2KB
|
123 lines
@echo off
cls
:
REM allows for disk drive (C,D or E) to be chosen
:
bmenu 8 26 "" " Copy files to drive C:" " Copy files to drive D:" " Copy files to drive E:" " Exit to DOS"
if errorlevel 3 goto exit
if errorlevel 2 goto menu-e
if errorlevel 1 goto menu-d
if errorlevel 0 goto menu-c
:exit
cls
goto end
:menu-e
cls
:
REM allows for the type of files to be copied to disk drive E
:
:menu-e
cls
bmenu 8 25 "" " Copy DXF files to drive E:" " Copy SKD files to drive E:" " Copy ALL files to drive E:" " Exit to DOS"
if errorlevel 3 goto exit
if errorlevel 2 goto dde2
if errorlevel 1 goto dde1
if errorlevel 0 goto dde0
:exit
cls
goto end
:dde2
cls
echo Copying all files [DXF & SKD] to disk drive E
copy *.DXF e:\
copy *.SKD e:\
cls
copydn-e
goto end
:dde1
cls
echo copying [SKD] files to disk drive E
copy *.SKD e:\
cls
copydn-e
goto end
:dde0
cls
echo Copying [DXF] files to disk drive E
copy *.DXF e:\
cls
copydn-e
goto end
:menu-d
cls
:
REM allows for type of files to be copied to disk drive D
:
bmenu 8 25 "" " Copy DXF files to drive D:" " Copy SKD files to drive D:" " Copy ALL files to drive D:" " Exit to DOS"
if errorlevel 3 goto exit
if errorlevel 2 goto ddd2
if errorlevel 1 goto ddd1
if errorlevel 0 goto ddd0
:exit
cls
goto end
:ddd2
cls
echo Copying all files [DXF & SKD] to disk drive D
copy *.DXF d:\
copy *.SKD d:\
cls
copydn-d
goto end
:ddd1
cls
echo Copying [SKD] files to disk drive D
copy *.SKD d:\
cls
copydn-d
goto end
:ddd0
cls
echo Copying [DXF] files to disk drive D
copy *.DXF d:\
cls
copydn-d
goto end
:menu-c
cls
:
REM allows the type of files to be copied to disk drive C
:
bmenu 8 25 "" " Copy DXF files to drive C:" " Copy SKD files to drive C:" " Copy ALL files to drive C:" " Exit to DOS"
if errorlevel 3 goto exit
if errorlevel 2 goto ddc2
if errorlevel 1 goto ddc1
if errorlevel 0 goto ddc0
:exit
cls
goto end
:ddc2
cls
echo Copying all files [DXF & SKD] to disk drive C
copy *.DXF c:\
copy *.SKD c:\
cls
copydn-c
goto end
:ddc1
cls
echo Copying [SKD] files to disk drive C
copy *.SKD c:\
cls
copydn-c
goto end
:ddc0
cls
echo Copying [DXF] files to disk drive C
copy *.DXF c:\
cls
copydn-c
cls
:end